10 POKE53280,0:POKE53281,0:REM 90:02:15
15 PRINT"[153][147]            WHC  ENTERPRISES    "
17 PRINT"         ENGLISH EXERCISES - E    [146]"
20 PRINT"                 ED-36 [146]     "
25 PRINT""
30 DIMA$(15)
35 FORA=1TO15:READA$(A):PRINT"[154]"RIGHT$("   "+STR$(A),4);". [158]";A$(A):NEXTA
40 INPUT"CHOOSE(1-15):";A$
45 A=VAL(A$):IFA<1ORA>15ORA<>INT(A)THENPRINT"[145][145][145][145]":GOTO35
50 FORX=1230+40*ATO1229+40*A+LEN(A$(A)):POKEX,PEEK(X)+128:POKEX+54272,3:NEXT
55 FORT=1TO1500:NEXT:PRINT"[147]LOADING........ ";A$(A)
60 PRINT"[144]LOAD"CHR$(34)A$(A)CHR$(34)",8:"
75 POKE198,0:POKE631,19:POKE632,131:POKE198,2:END
59999 :
60001 DATA "UNIT E-1"
60002 DATA "UNIT E-2"
60003 DATA "UNIT E-3"
60004 DATA "UNIT E-4"
60005 DATA "UNIT E-5"
60006 DATA "UNIT E-6"
60007 DATA "UNIT E-7"
60008 DATA "UNIT E-8"
60009 DATA "UNIT E-9"
60010 DATA "UNIT E-10"
60011 DATA "UNIT E-11"
60012 DATA "UNIT E-12"
60013 DATA "MORE UNITS"
60014 DATA "TEACHER INFO"
60015 DATA "TEXTMASTER"
60016 REM WHC 92 04 20